<%@ LANGUAGE="VBSCRIPT" %>
<% frmResponse = request("response") %>
<% frmEase = request("ease") %>
<% frmInteractive = request("interactive") %>
<% frmUseful = request("useful") %>
<% on error resume next
'-- Establish Connection to Database
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout = Session("StateU_ConnectionTimeout")
conn.CommandTimeout = Session("StateU_CommandTimeout")
conn.Open Session("StateU_ConnectionString"), _
Session("StateU_RuntimeUserName"), _
Session("StateU_RuntimePassword")
'-- Add feedback from client as new record
strSQL = "INSERT INTO feedback " & _
"(Response, Useful, Interactive, Ease)" & _
" VALUES (" & frmResponse & "," & frmUseful & _
"," & frmInteractive & "," & frmEase & ")"
conn.execute strSQL
'-- Check that record was added successfully
if err.number <> 0 then
session("ErrorTitle") = "Feedback Form"
session("ErrorText") = "The feedback could not be entered because of the following unexpected error:"&err.description
response.redirect "error.asp"
end if
%>
Get Feedback Active Server Page
| Feedback |
|
Feedback recorded |
Your feedback has been recorded and will help us make improvements
to this website in the future.
Thank you!